Application.ExecuteCommand("Global Options")
OptionsDlg.ActiveTab = "Design"
OptionsDlg.DesignDlg.LineTraceAngle = 2
OptionsDlg.Ok.Click()